home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg1 / g34.bas < prev    next >
BASIC Source File  |  1991-10-18  |  1KB  |  41 lines
  1. 100 ' G34 T.WAKAMATSU
  2. 110 CD PLAY 7,11
  3. 120 FOR D=1 TO 2000:NEXT D
  4. 130 CLS:Z=70:K=10:L=5
  5. 140 FOR J=0 TO 14
  6. 150   Z=Z+8:Q=0:CL=7
  7. 160   IF J<=8         THEN CL=2
  8. 170   IF J<=4         THEN CL=3
  9. 180   IF J=0 OR J>=13 THEN CL=2
  10. 190   FOR I=-18 TO 270 STEP 72
  11. 200     T=I/180*3.14159!
  12. 210     R=(COS(T*K)/2+SIN(T*L))*50+Z
  13. 220     X=COS(T)*R+320:Y=SIN(T)*R+240:Y=480-Y
  14. 230     Q=Q+1:V(Q)=X:W(Q)=Y
  15. 240   NEXT I
  16. 250   FOR H=0 TO 72 STEP 4
  17. 260     Q=0
  18. 270     FOR I=H-18 TO 270+H STEP 72
  19. 280       T=I/180*3.14159!
  20. 290       R=(COS(T*K)/2+SIN(T*L))*50+Z
  21. 300       X=COS(T)*R+320:Y=SIN(T)*R+240:Q=Q+1:Y=480-Y
  22. 310       LINE(V(Q),W(Q))-(X,Y),PSET,CL
  23. 320       V(Q)=X:W(Q)=Y
  24. 330     NEXT I
  25. 340   NEXT H
  26. 350 NEXT J
  27. 360 FOR D=1 TO 8000:NEXT D
  28. 370 Z=70
  29. 380 FOR J=0 TO 14
  30. 390   T=-18/180*3.14159!:Z=Z+8
  31. 400   R=(COS(T*K)/2+SIN(T*L))*50+Z
  32. 410   V=COS(T)*R+320:W=SIN(T)*R+240:Y=480-Y
  33. 420   FOR I=-18 TO 342 STEP 4
  34. 430     T=I/180*3.14159!
  35. 440     R=(COS(T*K)/2+SIN(T*L))*50+Z
  36. 450     X=COS(T)*R+320:Y=SIN(T)*R+240:Y=480-Y
  37. 460     LINE(V,W)-(X,Y),PSET,0
  38. 470     V=X:W=Y
  39. 480   NEXT I
  40. 490 NEXT J
  41.